home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 38 / Softdisk for Windows 38.iso / oilpro / OILPRO.EXE / OILPRO.DXR / 00119.ls < prev    next >
Encoding:
Text File  |  1997-08-20  |  321 b   |  19 lines
  1. on exitFrame
  2.   global CROSSES, SCORE
  3.   puppetSound("SNAP")
  4.   updateStage()
  5.   set SCORE to SCORE + 300
  6.   startTimer()
  7.   repeat while the timer < 120
  8.     nothing()
  9.   end repeat
  10.   puppetSound("ADDPOINTS")
  11.   PUTINSCORE()
  12.   updateStage()
  13.   startTimer()
  14.   repeat while the timer < 60
  15.     nothing()
  16.   end repeat
  17.   go("LD0")
  18. end
  19.